home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / T-FLAG.BAS < prev    next >
BASIC Source File  |  1995-12-14  |  687b  |  16 lines
  1. 10 '(c) Copyright 1992 ErsinSoft
  2. 20 'this line added by SysOp of The NoName-BBS in 1995
  3. 30 'The NoName-BBS: +90352-2353231, 14400, 8N1, 24hrs.
  4. 40 SCREEN 1,0:KEY OFF:CLS:COLOR 4,1:PI=3.14159
  5. 50 COLOR 4,1:PI=3.14159
  6. 60 CIRCLE(106,100),53,3,PI/4.45,7*PI/3.85
  7. 70 CIRCLE(119,100),42,3,PI/4,7*PI/4
  8. 80 PAINT(60,100),3
  9. 90 LINE(154,100)-(168,95):LINE(154,100)-(168,105)
  10. 100 LINE(168,95)-(168,85):LINE(168,105)-(168,114)
  11. 110 LINE(189,89)-(180,100):LINE(189,111)-(180,100)
  12. 120 LINE(189,89)-(175,93):LINE(189,111)-(175,107)
  13. 130 LINE(168,114)-(175,106):LINE(168,85)-(175,93)
  14. 140 PAINT(160,100),3:Z$=INKEY$:IF Z$=CHR$(27) THEN 150 ELSE 50
  15. 150 SCREEN 0,0,0:WIDTH 80:CLS:BEEP:KEY ON:END
  16.